home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Games of Daze
/
Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso
/
x2ftp
/
msdos
/
utils
/
rastms34
/
demo1.bas
< prev
next >
Wrap
BASIC Source File
|
1993-01-27
|
733b
|
22 lines
'* ************************************************************ *
'* Demo1.bas For QuickBASIC *
'* *
'* QGCAR.XGF was created by saving the image as QP/QB (Binary) *
'* from Raster Master. *
'* ************************************************************ *
OPTION BASE 1
DEFINT A-Z
OPEN "QGCAR.XGF" FOR BINARY AS #1
myArraySize = LOF(1) / 2
DIM myImage(myArraySize)
FOR i = 1 TO myArraySize
GET #1, , myImage(i)
NEXT i
CLOSE #1
SCREEN 7 'SCREEN 13 for 256 color images
LINE (0, 0)-(319, 199), 1, BF
PUT (0, 0), myImage, PSET